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| INSDELETE 16-Sep-1984 AX-11 Bliss-32 V4.0-7 Page 1 
14S set 93; 38: 33 INSTAL.SRCJINSDELETE. 4 2;1 . (1) | 


ye 


a“ 


ls 1 001 MODULE INSDELETE ( ! DELETE a KFE entry : 
; ¢ oe IDENT = ‘v04-000', : 
: Z st 8 — ADDRESSING _MODE(EXTERNAL = GENERAL) ; 
oe, 0005 1 BEGIN 3 
Se cer : 
: 8 sii 1 PITIIILILILILI LLL LILI LLL LLL LLL LiL Li LLL a 
; 9 0009 1 !* * ; 
; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 ® : 
; O01] 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
: i Belg ! is ALL RIGHTS RESERVED. : ‘ 
; «14 0014 1 i THIS SOFTWARE | IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | : 
: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Litt AND WITH THE * ° 
: 16 B08 1 !'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ‘ 
: 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® ‘ 
: 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ° 
: 1 id : * TRANSFERRED. : ‘ 
; 'e : 
: 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TG CHANGE WITHOUT NOTICE * | ; 
; 22 pOee 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
; $i One? : ‘* CORPORATION. . : 
. '® e 
; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * : 
3 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | ° 
; SB 0008 | ie : 
: 29 0029 1 PITITITITIIILIT LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL Py 
Rh BR I 3 
: 32 003¢ i FACILITY: Install | : 
; 34 0034 | ABSTRACT: | ; 
: 3 OogS : This module executes the REPLACE and DELETE options on INSTALL : 
; 35 0038 1 i ENVIRONMENT : : 
: re Bee ! VAX/VMS operating system. | : 
; 42 004g 1 i AUTHOR: Bob Grosso, April 1983 | : 
; 44 0044 1 i Modified by: | : 
: 46 0046 1 V03-012 MSH0061 Michael S. Harvey 5-Jul-1984 | : 
; #4 984 : Add EXEONLY support. : 
: 49 0049 1: v03-011 MSHO0S7 Michael $. Harvey 26-Jun-1984 | ; 
3 30 9930 : Propagate WRITEABLE attribute across REPLACE command. 

: 2¢ 0038 1! v03-010 MSHO0050 Michael S. Harve of 18-May-1984 

ee 0055 1! Convert match control to MATEQU before deleting gievet 

; 0054 1! sections. This ensures that DELETE/REMOVE doesn 

; 0055 1! delete newly created global sections of the same ne 

; 7 0036 1! but with different idents. In other words, we on 

; | «6F 0057 1 | want to delete global sections that are Likely to "have 


1 
_tusogsere 1B-Sen-1984 01:52:50 YAKGII BLing=32 v4.02742 


is $8 O28 1! been created at the time the about-to-be-deleted image 
; 59 059 1! was created, not _ = sections of the same name 
; rs bey : } that have been created since that time. 

; © pps 1! v03-009 MSH0027 Michael S. Harve ey 66-Apr-1984 

3 o7 Beez : Ensure that tiles get closed during the PURGE operation. 
; 6 6S 0065 1! v03-008 MSHO022 Michael S. Harvey 19-Mar-1984 

3 66 bee : Convert and compress directory brackets correctly. 

; & 0068 1! V03-007 MSHO017 Michael S. Harvey 7-Mar-1984 

; 0069 1! Convert FIND_KFE into a global routine for use during 
; f9 Baty : known file creation. 

: 2 0072 1! V03-006 MSH0003 Michael S. Harvey 27-Jan-1984 

: 73 0075 1! Prevent crash from executing system service at elevated 
: 74 0074 1! IPL by resetting IPL on wierd error paths, such as is 
: e Ba? : done on success paths. 

: 77 0077 1! v03-005 RPGO00S Bob Grosso 08-Sep-1983 

: 78 0078 1! Raise IPL to protect — deallocation, so a process 
: 79 0079 1! won't result in pool 

3 a9 paee ; Do not decrement REF CNT "ts WCB when deleting entry. 

js 82 0082 1! v03-004 RPG0004 Bob Grosso : 16-Aug-1983 

; 83 0083 1! Fix /REPLACE so it retains attributes. 

; Se ooee ! Activate REMOVE command. 

> & 0086 1! v03-003 RPGO003 Bob Grosso July 25, 1983 
; Or 0087 1! Decrement entry count upon deletion. 

3 0088 1! Clean up PURGE. 

; 0089 1! Clean up error reporting. 

; 0090 1! 

: (91 0091 1! v03-002 RPG0002 Bob Gro July 19, 1983 
3 sia : Do not decrement REFCNT te WCB when deleting entry. 

; 94 0094 1! v03-001 RPGO001 Bob Grosso : July 7, 1983 

. we 0095 1! Take out exclusive lock when purging 

: 0096 1! 

pa OF 0097 1 !-- 

; «698 0098 1 

; 9 0099 1! ; 

: 100 0100 1 ! Include files 

3; 101 0101 1! 

3 4 B16 1 ‘ae 

; Ht Bibz i LIBRARY ‘SYSS$LIBRARY:LIB'; ! VAX/VMS system definitions 

3; 105 0105 1 REQUIRE ‘SRC$:INSPREFIX. REQ"; 

: 106 0247 1 REQUIRE ‘LIBS: INSDEF.R32'; 
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Declarations 


H 1 
INSDELETE 16-Sep-1984 01:52: AX-11 Bliss-32 V4.0-74 

Rivasan 12-8 08- 1 3be 5:38:39 PINSTAL SRE INSDLLE TE 692:1 (2) 
: 06 1 XSBITL ‘Declarations’; 

LINKAGE j 


CALL_S_4 = CALL (STANDARD, REGISTER=4), for calling routines to execute in kernel mode 
the change mode dispatcher passes PCB address in R- 


Oo: 
co 


JSB_O = JSB (REGISTER = 0), 


Deallocate paged pool 


JSB_0_1_2 = JSB (REGISTER = 0; REGISTER = 1, REGISTER = 2) ! Verify I/0 channel 
: NOPRESERVE (3) 
NOTUSED (4,5,6,7,8,9,10,11), 


3 
JSB_G1_G2_3 = JSB (REGISTER 
: GLOBAL (Length 


« 3) Allocate memory in P1 space 
= 1, entry _block = 2); 

' 

Table of contents 


EXTERNAL 
cttoa_alloceeg. 
ctl$gl_knownfil, 
EXESGL_KNOWN_FILES 


Memory allocation Listhead 

Process known file Listhead queues 
Pointer to knownfil List queues 

!' Number of buckets in KF hash table 


“ : REF BBLOCK, 
SGNSGB_KFHSHS1Z; 

EXTERNAL ROUTINE 
IOCSVERIFYCHAN : JSB_0_1_2, 
EXESDEAPAGED : JSB_0; 


SYSSDASSGN: 


WANNNAWAAANW AN AWNNAANNN AWNING 


— LITERAL 


The Known File List is empty 

no known file entry found 

no known file entry Tene during REMOVE 
There is no Known File List 

Dangling entry was removed 


BBE EAN NWI POPPI PINIPUNINNNY 2 SS OO SO 


EXTERNAL 

INSSGL_CTLMSK : BLOCK (1), 
INS$GL-REPLACE_MSK : BLOCK [1], 
NSS INTRNLERR, 


Control flags 
Control flags for REPLACE 
Pass back internal error descriptor 


S$GC_KFECHAN, Channel known image file is open on. 
INS$G_RFENAM : S$NAM_DECL, 
INS$GO_KFEPRIVS, 


Sada 4 mask, save it if REPLAC 
INSS$GL_KFEADR; Return the 
EXTERNAL ROUTINE 
INSSEXECUTE_IN_KRNL_WITH_W_LOCK, 
INSSCNVRT_KF_LOCK, 
INS$BLD_GBLSECNAM, 
INSSCVT_DIR, 
INSSHASR; 


FORWARD ROUTINE 
INSSF IND_KFE, 


KFE address when it has been replaced 
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INSDELETE 16-Sep-1984 01:52: AX-11 Bliss-32 V4.0-74 Page 5) 

Ried INSSDELETE 12-808- 132 9:38:39 YINSTAL SRE TNSDELESE. 642:1 . (3) | 

: 182 79 1 XSBITL "INSSDELETE':; | 

> 184 1 1 GLOBAL ROUTINE INSSDELETE = | 

i Bhs | 
3 189 8 84 ! 

: 188 0385 ! FUNCTIONAL DESCRIPTION: 
; 189 0 38 ! 
: 190 038 ' Delete a Known File entry. 
: 13) 8 4 } If this was the last entry for the Listhead, delete it 
; 138 8 90 ! EXPLICIT INPUT: 
: 194 91 ! 
: #195 0 35 ‘ none 
: 196 $38 ! 
3; 197 94 ' ROUTINE VALUE: 
; 198 0395 ! 
: 199 0396 ! RO = return status, low bit set for success, else error status 
: 200 0397 ! 
: 201 0398 lene 
3 soe 0399 
3 $ 0400 LOCAL 
; 204 0401 STATUS; 
3 3¢4 Bae 
3 oe bebz IF .INSSGL_CTLMSK CINS$V_PROCESS] THEN RETURN TRUE; 
; $08 0405 § STATUS = INSSEXECUTE_IN_KRNL_WITH_W_LOCK (CINS_DELETE, 0); 
; 209 0406 2 RETURN .STATUS; 
: 210 0407 1 END; ' Global routine INS$DELETE 


-TITLE INSDELETE 
-IDENT \v04-000\ 


| 
-PSECT S$PLITS,NOWRT,NOEXE,2 


69 74 65 6C 65 64 20 72 6F 66 20 45 46 4B 20 Q0000 P.AAB: .ASCII \ KFE for deletion not found in hash\ 3 
6— 69 20 64 6E 75 6F 66 20 74 6F of 20 6E 6F O000F 3 
68 73 61 68 20 etl : 

0002 -BLKB 1 
4 tS 00024 P.AAA: .LONG 35 3 
00000000' 00028 ADDRESS P.AAB 3 
65 61 65 68 20 65 67 61 6D 69 20 6F 4€ $3 Q0002C P.AAD: .ASCII \ No image header found for delete\ 3 
oC &5 64 20 72 6F 66 20 64 6E& 75 6F 6 90 ¢ B00 B 3 
6 4 6 O4A $ 

et -BLKB 

TS 0050 P.AAC: .LONG 3 3 
0000000" 00054 ADDRESS P.AAD 3 
69 74 65 6C 65 64 20 72 6F 66 20 44 46 4B 20 Fe P.AAF: .ASCII \ KFD for deletion not found\ ; 
64 6€ 75 6F 66 20 74 6F 6E 20 6E O6F o6 3 

8 3 -BLKB 1 
0000001 74 P.AAE: .LONG 27 3 
00000000' Bane ADDRESS P.AAF ‘ : 
69 74 65 6C 65 $6 20 72 6F $6 20 45 46 48 O7C P.AAH: .ASCII \ KFE for deletion not found in KFD List\ ; 
6— 69 20 64 6E 75 6F $6 3 4 gf 6—€ 20 6E 6F ORee ; 
74 69 6C 44 46 4B 20 8 9A 3 

00A3 -BLKB 1 


Bes 


a 


INSSDELETE 


20 6D 6f 66 $ 6F 
62 20 72 g rh oe 6F 


; Routine Size: 


69 74 oA 

70 20 exe 
-BLKB 

P.AAL: .LONG 


$1 


MMMmMmMmMMMmMmMmmmMmnre www 
=< 


»PSECT 


04 000000006 00 
50 


0000Vv 


onmovoromoe 
Fone fo-o 
Coooooooo 


2 

A 

D 

f 1$: 
00000000G 00 ;. 


28 bytes, Routine Base: S$CODE$ + 0000 


3 au 0408 1 


alan 12:38:37 


«LONG a 
-ADDRESS P 


4 
«ADDRESS P.AAJ 3 


AX-11 Bliss-32 V4.0-7 
INSTAL.SRCJINSDELETE. : 231 (3 


\ rnp Ree from empty pointer block\ : 


| 
™ 
CTL$GQ_ALLOCREG 
CTLSGL_KNOWNF IL 
EXESGL_KNOWN FILES 
SGN$GB_KFHSHS1Z 
OCSVERIFYCHAN, EXESDEAPAGED 
VS$ASSIGN, SYSS$DASSG 
INSS$_EMPTYLST, INS$_INTRNLERR 
INS$_NOKFEFND, INS$-NOLIST 
INS$_REMOVED, INSSGC_CTLMSK 
I REPLACE _MSK 
* INS$G_KFENAM 
NSS$GL-KFEADR, INSSEXECUTE_IN_KRNL_WITH_W_LOCK 
NSSCNOURT_KF Lock 
INS$BLD RGBL SECNAM 
INSSCVT_DIR, INSSHASH 
SCODES,NOWRT,2 
INSSDELETE. Save nothing 
#1, INSSGL_CTLMSK, 1$ 
#1, RO 
708?) 
INS_DELETE 
#2,” INSSEXECUTE_IN_KRNL_WITH_W_LOCK 
} 
| 
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409 1 ZSBTTL "INS_DELETE'; 


++4 
FUNCTIONAL DESCRIPTION: 


Delete a Known File entry. 
If this was the last entry for the Listhead, delete it 


EXPLICIT INPUT: 
none 

IMPLICIT INPUT: 
INSSGL_KFEADR = 

IMPLICIT OUTPUT: 
INSSGL_KFEADR = 

ROUTINE VALUE: 

RO = return status, low bit set for success, else error status 


Channel on which the known file image is open 


Address of KFE, will be set to zero 


OCAL 
HASH_INDEX, 
KFD | REF BBLOCK, 


KF 
STATUS; 
If this is a REMOVE, i.e. We suspect there is a dangling entry, 
then compute which hash table bucket Known File Entry should be in. 
If we find the entry, remove it, else return normally. 
F .INS$GL_KFEADR EQL 0 
HEN 
BEGIN 
HASH_INDEX = INSSHASH (.INS$G_KFENAM CNAMSB_NAME} 
.INS$G_KFENAM CNAMSL_NAREJ, .SGN_B_KFHSHSIZ ); 
KFE = INSSFIND_KFE (.HASH_INDEX, INS$G_KFENAM); 
IF .KFE EQL 0 THEN RETURN INS$_NOKFEFND; 


INSSCNVRT_KF_LOCK (LCKSK_EXMODE); ! Convert protected read to exclusive 
' to lock out any image activations 


STATUS = DETACH_KFE (.KFE, KFD); 
IF .KFD NEQ 0 


BEGIN 


SET_IPL (IPL$_ASTDEL); i Block deletion of process so pool is not lost 


——_-——_-_-——_ 
| 


_ INSDELETE 
Bivetias 


nnn nn 
Be Se ee Se Fe Se Se Se Ge Se Oe Be Se Os Oe Se Oe Se Oe Oe Oe oe Oe Se BH Oe HSH Se Oe Oe es Oe Oe OH Oe OH Se oe e*. 


BOLSSSISARS 


ae 
046 STATUS = DEALLOC_PAGED (.KFD); 
rh END; 
bd 5 STATUS = RETURN_KFE (.KFE,0); 
471 SET_I 
O47¢ INSSCNURT Ok _LOCK (LCKSK_PRMODE); 
0474 RETURN INS$_REMOVED; 
0475 END; 
O678 
047 
04768 ! 
oh 44 Take out write lock and remove entry from list 
ot iNSSCNVRT KF_LOCK (LCKSK_EXMODE); 
ocRz SET_IPL (CIPLS_ASTDEL); 
0485 STATUS = DETACH_KFE (.INSSGL_KFEADR, KFD); 
0486 - - STATUS 
0487 THEN 
0488 BEGIN 
0489 IF .KFD NEQ 0 
0490 HEN 
bea. STATUS = DEALLOC_PAGED (.KFD); 
0493 3 ! 
Bege 3 Clean up entry and deallocate it 
0496 ; STATUS = RETURN KFE (. INSSGL_KFEADR,0); 
0497 INSSGL_KFEADR “0; 
0498 2 END; 
0499 2 
0500 2 SET 
0501 21 ASSCNYRT Of _LOCK (LCKSK_PRMODE); 
Bane 2 
0503 2 
0504 2R ge ~ STATUS; 
0505 1€E 


7E 000000006 
EF 
B4 


7E 
000000006 00 


! Global routine INS_DELETE 
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' reset to IPL 0 
' Convert exclusive to protected read 
i “to allow image activations 


! Convert protected read to exclusive 
i “to lock out any image activations 
! Block deletion of process so pool is not lust 


: Convert exclusive to protected read 
i “to allow image activations 


.ENTRY INS DELETE. Save R2,R3,R4,R5,R6 : 0411 
2 MOVAB  INSSG_KFEN NAM +76, R6 : 
9 MOVAB INSSCL KFEA $ 
0 MOVAB INSSCNORT ERP Rock. R4 ; 
7 SUBL a4 3 
A TSTL INSSGL_ KFEADR + 0449 
C BNEQ ; 
f MOVZBL SGN.B -KEWSHSI -(SP) + 0453 
PUSHL INSSG_KFEN : 
7 MOVZBL IN NSSGo KEENAMSSS, -(SP) + 0452 
B CALLS INSSHASH : 
2 PUSHAB TNgsee KFENAM > 0455 


Me Gs Oe Oe Be Bs Be Bs Be Be Os Se Gs Be Be Ge Sse Ge Ge Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge os Se Se Oe Oe os Be Se Oe Oe Se Ss Se Se ws Os Oe Os BO Se 4 Ose Be Os oe 
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; 310 0506 1 


N p. 
Woe TE 16- s00 =-1984 AX-11 Bliss-32 V4.0-7 Page 9) 
Nata INS_DELETE 1ergek= 1382 95:38:39 YIN Te thesragoe cere o$2.1 9 as | 
50 DD PUSHL HASH INDEX : | ; 
| 0000v cf Q F \ ; CALLS » INSSFIND_KFE : | : 
2 dO 0003¢ MOVL RO, é Kre : : 
| : 1 O3F BNEQ + 0457. : 
| 50 000000006 8F p 904 MOVL § #INSS_NOKFEFND, RO : : 
4 00048 RET : : 
05 DD 00049 1$ PUSHL 4s t 0459) : 
64 01 FB 00048 CALLS 4 }. JNSSCHVAT KF LOCK 3 ‘ 
12 02 DA O004E MTPR + 6461. : 
4004 &8F BB 00051 PUSHR AP R2,S + 0462 : 
0000v CF 08 FB 00055 CALLS #2, DETACH_KFE : : 
53 D BO03A OVL RO, STA : : 
| 6E D5 0005D TSTL 6 ; 0463. ; 
OA 13 0005F BEQL 2 : | : 
6E DD 00061 PUSHL KF + 0466 : 
0000v CF 01 FB 00063 CALLS #1, DEALLOC_PAGED ; : 
53 50 DO 00068 MOVL ’ STATUS : : 
7E D4 00068 2$ CLRL = = (SP) + 0469 : 
32 DD 0006D PUSHL  KFE : : 
0000v CF 02 FB 0006F CALLS #2, RETURN_KFE : : 
53 50 DO 00074 MOVL RO, STATUS ; : 
12 00 DA 00077 MIPR #0. #1 : 0471 ; 
03 DD OO07A PUSHL #3 + 0472 : 
64 01 FB 0007C CALLS Hi. INSSCNVRT_KF_LOCK : ; 
50 000000006 8F DO 0007F MOVL #INS$_REMOVED; RO + 0474 ; 
04 00086 RET : F 
05 DD 00087 3$ PUSHL #5 > 0481 : 
64 01 FB 00089 CALLS #1, INSSCNVRT_KF_LOCK : F 
12 02 DA 0008C MTPR #2, #18 > 0483 : 
5E DD O008F PUSHL SP : 0485 : 
65 DD 00091 PUSHL INS$GL_KFEADR : : 
0000v CF 02 FB 00093 CALLS #2, DETACH_KFE ; : 
53 50 pO 00098 MOVL RO, STATUS™ : : 
iC 53 £9 0009B BLBC STATUS. 5$ > 0486 : 
6E 05 0009E TSTL _KFD : 0489 ; 
OA 13 OO00A0 BEQL  4$ ; : 
6E DD OO0A2 PUSHL KFD + 0491 : 
0000v CF 01 FB OOOA4 CALLS #1, DEALLOC_PAGED : : 
53 50 DO 000A9 MOVL RO, STATUS : : 
7E D4 OOOAC 4$ CLRL = = §P) > 0496 : 
65 DD OOOAE PUSHL INS$GL_KFEADR ; : 
0000v CF 02 FB 00080 CALLS #2, RETURN_KFE : | : 
53 50 pO 00085 MOVL RO U : : 
6> D4 00088 CLRL —_INS$GL_KFEADR > 0497 | : 
, 12 0 DA OOOBA 5S: MIPR #0, #18 : 0500 : 
s 03 DD 0008D PUSHL # : 0501 ; 
64 01 FB OO0BF CALLS #1, INSSCNVRT_KF_LOCK : F 
50 53 D0 900ce MOVL STATUS, RO + 0504 : 
04 000C RET : 0505 : 
; Routine Size: 198 bytes, Routine Base: $CODE$ + OOIC : 


—————————————E——E J 
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STATUS; | 
IF .INS$GL_CTLMSK CINSSV_PROCESS] THEN RETURN TRUE; 
STATUS = INSSEXECUTE_IN_KRNL_WITH_W_LOCK CINS_PURGE, 0); 


RETURN .STATUS; 
END; ' Global routine INSSPURGE 


H 1 9307 1 ZSBTTL ‘INSSPURGE'; | 
; 0 8 1 

: 314 R 1 GLOBAL ROUTINE INSS$PURGE = 
s 315 510 BEGIN 

: 316 0511 le+4 
: 317 B216 ! 
3 18 0313 i FUNCTIONAL DESCRIPTION: 
3 Seo 0515 ! Purge all Known File entries that are purgeable. : | 
3 5 B218 For each that is the last entry for the Listhead, delete it 

; 51 i EXPLICIT INPUT: 

3 4 8218 ! 

3 25 0520 : none 

3 6 p31 § ! 

3 i b258 ROUTINE VALUE: 

3 ? beS¢ ; RO = return status, low bit set for success, else error status 

: 1 0526 2 !--- 

: 2 0527 2 LOCAL 
3 3 0528 2 

3 4 o2¢2 § 

5 5 0530 

3 6 0531 2 

: 7 0532 2 

3 8 0533 2 

3 9 0534 1 
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0000 00000 -ENTRY INSS$PURGE, Save nothing ; 0509 
04 000000006 00 01 €1 00002 BBC #1, INS$GL_CTLMSK, 1$ ; 0550 
50 01 00 OO00A MOVL #1, RO : 
04 0000D RET ; 
7E 04 QOOOE 1$: CLRL ~(SP) : 0532 
0000v CF 9F 00010 PUSHAB INS_PURGE ; 
000000006 00 02 FB 00014 CALLS #2, INSSEXECUTE_IN_KRNL_WITH_W_LOCK : 
04 00018 RET ; 0534 


; Routine Size: 28 bytes, Routine Base: S$CODE$S + O0E2 


; 340 0535 1 


vhs 


4 
4 
44 
45 


PAXREQEMAAG INI 


So~ehe 
WN —OODNAVUES WN $0 OONOUSWN —“OVONOUEWN—ODOONO 


COoOo NNN NAN NNO 


ar 


LA AAAI AIA ANI AIN AAAI AAI ANIA NAAN WINANS 
Wnr—-OO@an 


Wii 
oovono 
CONOUSE 


INS _PURGE 

$ } ZSBTTL ‘INS_PURGE'; 

8 1 ROUTINE INS_PURGE = 
BEGIN 

leee 


FUNCTIONAL DESCRIPTION: 


; 
i 

i 

; 

i EXPLICIT INPUT: 
| none 

IMPLICIT INPUT: 
INS$GL_KFEADR 
IMPLICIT OUTPUT: 
INSSGL_KFEADR 
ROUTINE VALUE: 

; 


OCAL 
RET_STATUS, 
STATUS; 


@o 
_ 


KFPB EQL 0 

RETURN INS$_NOLIST; 

IF -KFPB CKFPBSL_KFDLSTI EQL 0 
RETURN INS$_EMPTYLST; 


If . 
THEN 


IF NOT .STATUS THEN RETURN .STATUS; 
RET_STATUS = PURGE (); 
INSSCNVRT_KF_LOCK (LCKSK_PRMODE); 
IF NOT .STATUS THEN RETURN .STATUS; 
INS$SGL_KFEADR = 0; 


AUS WN OOO NAULS WN $0 OO NAMES WN 0 OONOAOUES WN OOO NOULSWN—O” 


POPIPIPIPIPIPIPININPINPIPIPIPINYIPIPYPDIPOPINIPPPYPIPINIPYIPINPININIAUINIPIPINIPIPIPIPIPUPIPUPINIPUPUPUPONRIPUPONY 
c - " 


© 0 00 00 09 00 09 09 CD 0D 
mo OoO™~ 


STATUS = INSSCNVRT_KF_LOCK (LCKSK_EXMODE) ; 


$ 
-$ INSTAL.SRCJINSDELETE 


Purge all Known File entries that are purgeable. 
For each that is the last entry for the Listhead, delete it 


Channel on which the known file image is open 


Address of KFE, will be set to zero 


RO = return status, low bit set for success, else error status 


ND 
KFPB = EXESGL_KNOWN_FILES : REF BBLOCK; 


! Convert protected read to exclusive 
to lock out any image activations 


! Convert exclusive to protected read 
! to allow image activations 


2 ; 
et 03:30:30 ee Bliss-32 V4.0-74 


7 
-B32;1 


et 


2 
Voorbb0 © INS_ PURGE 1exgeb=1 382 95:38:39 «| FINS tAL SResingotcese 6$2:1 


; 399 0593 _ «RET STATUS; 
; 400 $882 fff 


(Global routine INS_PURGE 


001C 00000 INS_PURGE: 


WORD Save R2,R3,R4 
54 90000006 99 9 90002 MOVAB INSSCNVRT_KF_LOCK, R4 
0 900000006 0 p 900 OV KEP, RO 
MOVL #INS$_NOL ak 

50 000000006 gf p0 001 HOV INS$_NOLIST, RO 

60 05 Bere 1% TSTL (RO) 

08 iF 001¢ BNEQ 2$ 
50 000000006 F »? Boose nove #INSS_EMPTYLST, RO 

05 DD 00026 2% PUSHL #5 
64 01 FB 00028 CALLS #1, INSSCNVRT _KF_LOCK 
52 9 DO 00028 MOVL RO, STAT 
10 52 £9 990 E BLBC STATUS, 3$ 

0000v CF 90 FB 0031 CALLS #0, PUR 

53 0 pO 00036 MOVL RO, RET_STATUS 

03 DD 00039 PUSHL # 
64 01 FB tg CALLS ae INSSCNVRT_KF _LOCK 
04 25 E8 OO03E BLBS STATUS, 4$ 
50 52 DO 00041 38: MOVL STATUS, RO 

04 00044 RET 
000000006 00 D4 00045 4s: CLRL INSSGL KFEADR 
50 53 DO 00048 MOVL T_STATUS, RO 
04 0004E RET 


; Routine Size: 79 bytes, Routine Base: S$CODES + OOFE 


; 401 


0595 1 


Be Se Se Se Be Se Be Se Be Be Se Fe Se Fe Se Se Fe Fe Se Se Se Be Be Be 


vee 


ZSBTTL ‘PURGE’; 
ROUTINE PURGE = 
BEGIN 
+44 
FUNCTIONAL DESCRIPTION: 


Purge all Known File entries that are purgeable 
For each that is the Last entry for the lL sthead, delete it 


EXPLICIT INPUT: 


Fae at a 
LSSF2. 
Vilw 
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WAIN FIP DNITUNIPININPINININ 2 tS OO SSh ae Ahm eee 


FUN $$ O 0D NOUS WN —OOONPUL WN “OVO ONAOULS WN —O0 


OOoooooooo 


LOCAL 
DEV_DSC : SBBLOCK CDSC$C_S_BLNI, 


CCB : REF SBBLOCK, 


PEAS 


06 
0 
0 
0 
0 
0 
0 
0 KFE REF 
0 RET_KFE REF BBLOCK 
0 ET_KFD, 
06 STATUS; 
06 
06 
06 BIN 
$ oe O CEPB = EXESGL_KNOWN_FILES : REF BBLOCK; 
432 06 KFD = .KFPB CKFPBSL_KFDLST); 
43 06 
434 06 ‘ 
435 06 i Traverse the List of KFDs and access all its KFEs. 
436 06 i The KFD is the header block which contains the Device, directory and 
rit be file type which several Known File Entries (KFE) share in common. 
439 06 WHILE .KFD NEQ 0 DO 
440 06 
441 06 KFE = .KFD CKFDSL_KFELISTI; 
44 0635 


7 Set up device string descriptor for assignment. 


DEV_DSC COSC$W_LENGTH] = .KFD CKFD$B_DEVLEN); 

DEV=DSC C EDSCSA Tee MTER KFD CKFDST-DDTSTRI: 

KFD™ s KFBSL_LINK T Follow Link now to next KFD 
DELETE each KFE in the KFD's ordered List of KFEs 

W 


HILE .KFE NEQ 0 DO 
BEGIN 
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: 
: 
: 
: 
: 
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RET KF E = ' KFE to be deleted 
KFE-= KFE EKFESL _KFELINK); i Follow Link now for next one 
1F NOT .RET_KFE CKFESV_NOPURGE J 

BEGIN 
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AAW 
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rf ? 

Sep-1 Ax-11 Bliss-32 

12-808} 7 9}: 36: o INSTAL.SRCJINS bet 
Get ready to close the file. Do this now parere the data 

! structures get cleaned up at elevated IPL 
S$ 
C 


! 

i 

' 

SYSSASSIGN (DEV_DSC,CHAN,0,0); 
10 OCSVERIFYCHAN T.CHAN; CCBS; 

; 


Take out write lock and remove entry from List 

SET_IPL CIPLS_ASTDEL); ' Block deletion of process so pool is not lost 
STATUS = DETACH_KFE (.RET_KFE, RET_KFD); 

ogg «STATUS 


BEGIN 
SET 
RETORW ius: 


IF .RET_KFD NEQ 0 
THEN 


BEGIN 
STATUS = DEALLOC_PAGED (.RET_KFD); 
IF NOT .STATUS 

THEN 


ef 
RETORN Satus: 


Clean up entry and deallocate it 


STATUS = RETURN_KFE (.RET_KFE, .CCB); 
ET_IPL (0); 


Now, prepare for final file closing 


SYSS$DASSGN (.CHAN); 


IF NOT .STATUS THEN RETURN .STATUS; 
END; ! If it's purgeable 


SERIE PUPP PASTS SIS D. SNS OP OP OS OOP UTI OF OP TT IITTIIII 
HN ewe ne 


END; ! WHILE traversing KFD's eraares KFE List 
END; ! WHILE traversing KFD Lis 
RETURN TRUE; 
END; ! Global routine PURGE 


01 


OO PURGE: .WORD Save R2,R3,R4,R5,R6,R7,R8 
5E 10 SUBL2 SP 
50 000000006 00 


5 S000 3 
55 $0098 MOVL  KFPB, RO 


VOe-600| PURGE 


000000006 


0000v 


0000v 


0000Vv 


000000006 


; Routine Size: 155 bytes, 


; 509 0702 1 


54 


Routine Base: 


-—S 
-—mmn 


-o —o 
so —-£ 


000000006 


04 


04 
04 


0140 


So 
So 


VIMOAOM00 —“DOWN10 PB — PW VNMNOWNP OUIDO OP PNP PVN bP FP WOW 
NN MOONWw DONO MW NONMIOM NOM LMMMOnmou fs & LW fo 


So 
pars 


SCODES + 014D 


OVoIMOI9 "BD -9OMI "SO -9OMO NO OCT -9O TOO VNI OO VN OOW"90 9 
FOL OOS FOWDD —$ F DOM OWN OOD MFP OPOD * *®OHWDOOWMOIMA N10 
CSOoOoOoCOCOOOOOSOOOSOOSCOOCOOOOSOSOOOOOOOOOOOOOOOOOOOOO 
COSCCSCOSOOCOSOOOSOSOSOOSOOOSOSOOSOOSOSOOSOOOOOOOOOOOOSOOOOOOO 


52 -1 
~ep-1 


1$: 
2$: 


3$: 


4$: 
5$: 


6$: 
7$: 


Be 12:38:37 


Sy KFD 


OBOE 1 RK OK PS HOA 
SMT ANA TAMA we 


3YSSASSIGN 
CHAN, RO 
IOCSVERIF YCHAN 
R1, R8 


STATUS, 4$ 
_KFO 


RET_KFD 

#1, DEALLOC_PAGED 
RO, STATUS 
STATUS, 5$ 
#0, #18 

4S 


#OMCR 
#2, <RETORN. KFE 
RO. STATUS™ 

#0 


CHAN 

#1, SYSSDASSGN 
STATUS, 
STATUS, RO 


#1, RO 


AX-11 tS 
INSTAL. $Rei 


Mie 
ind 


o=3¢ 1984 AX-11 Bliss-32 V4.0-74 
detach_kfe Remove from Known File List 1$-se0-1984 93: 38: 33 INSTAL .SRC INSDELETE B92: 1 


105 } ZSBTTL ‘detach _kfe Remove from Known File List'; 


wns 


~~ 
SSSSSSS 
NO 


OOD 


WWNAAWAAWNIPPINPINPYININPINININIDD 2 2 PO OO es 


AAARO CAA AUT EP PE EERE EW 


Pewee eae e sl eal es lea al al nal al eal ah ah ah ahah alah ab eab ab ealvalvalealtalvaltaltalval al valvaltaltaltal tartar val tartartaltaltaltaltaraltartartartarts] 


Be Se Be Oe Be Oe Se Be Be Ge Se FHS Se Se Be Se Be Se Fe Ge Ge Se Se Se Ge Ge Ge Se Se Oe Oe Oe HSH SH Se Se Se Se Oe Se Oe Se Se oe Oe SH Se HSH Ose Se Sees ee 


DONA UE WIR CO OD NAU EWN O OO NOA UE WIN $$ 0 OD NOUEWIN OO OONOYEWH—O 


AAAI I 


poy ine DETACH_KFE (KFE, RET_KFD_ADR) = 
1444 
i 

FUNCTIONAL DESCRIPTION: 


Delete a Known File entry. 


i 
i 
i 
If this was the last entry for the Listhead, delete it 
EXPLICIT INPUT: 

none 

ROUTINE VALUE: 

RO = return status, low bit set for success, else error status 
i 


LOCAL 
CMPHSHKFE REF BBLOCK, ! 4 from hash table List to compare with 
CMPKFE : REF BBLOCK, i KFE from KFD to compare with 
HSHTAB : REF VECTOR C,LONG), i Hash table 
PRVHSHKFE : REF BBLOCK, | Previous KFE from hash table 
OTA TUE : REF BBLOCK, ' Previous KFE from KFD List 


MAP 
KFE : REF BBLOCK; 


BIND 
KFPB = EXESGL pout FILES : REF BBLOCK, 
RET_KFD = .RET_KFD_ADR; 


IF .KFPB EQL 0 

Wen 

Fuss INTRNLERR = EMPTYKFPB_ERR_DSC; 
A INS$_INTRNLERR; 


HSHTAB = .KFPB CKFPBSL_KFEHSHTAB); 


RET_KFD = 0; ! partytng other than zero indicates this was the last 
' KFE in the KFD and the KFD should be deallocated 
PRVHSHKFE = HSHTAB C.KFE CKFESB_HSHIDX tr ' Previous KFE 
CMPHSHKFE = .HSHTAB L. KFE CKFESB. HSHIDXJ); i Comparison KFE 
exits -CAPHSIKFE NEQ 6D '"Single Linked List ending in zero 
ae EQL .CMPHSHKFE ! Same entry block? 
BEGIN 
LOCAL 


KFD : REF BBLOCK; 


2 | 
INSDELETE ibs -1984 01:52: AX-11 Bliss-32 V4.0-74 Page 17 ] 
riveted detach_kfe Remove from Known File List atin 1 95:38:39 INSTAL. SRCJINSDELETE.852;1 ss (8) | \ 
; 568 760 4 : : 
° $? 761 & PRVH ace CKFESL_HSHLNK] = .KFE CKFESL_HSHLNK]; ! Remove it : 
; 0 762 4 KFE CKFESL_HSHLNR) = 0; ; 
s S71 765 4 PRVHSHKFE = 0; ! Mark that it was found 3 
; Le: Ores ? CMPHSHKFE = 0; ! Terminate traversal ; 
: he 766 4 KFD = .KFE CKFESL_KFD); | ; 
: 575 879 4 i 
; 576 768 4 ' 3 
s ore 0769 4 ! Remove KFE from the ordered singly Linked List starting in the H 
; 3578 0770 4 !  KFD. : 
; oY 14a) 4 ! ; 
: 580 ae 4 PRVKFE = .KFD; | ; 
s Sel 0775 4 CMPKFE = .KFD CKFDSL_KFELISTI; : 
; abe 0774 4 3 
3; 38 0775 4 WHILE .CMPKFE NEQ 0 DO | ; 
; 584 0776 5 3 
; 585 0777 5 IF .CMPKFE EQL .KFE | 3 
; 586 0778 5 THEN : 
; 587 0779 6 EGIN : 
; 588 0780 6 PRVKFE CKFESL_KFELINK] = .KFE CKFESL_KFELINK]; ! Link around it. : 
; 589 0781 6 KFE CKFESL_KFELINK) = 0; ! Cléan up 
; 590 14-04 6 PRVKFE = 0; ! mark successful traversal 
; 591 0783 6 CMPKFE = 0; ! terminate traversal 
3 236 0784 6 END 
3; 3 0785 5 
; 594 0786 6 BEGIN 
3 399 0787 6 PRVKFE = .CMPKFE; 
; 596 0788 6 CMPKFE = .CMPKFE CKFESL_KFELINK]; 
s ovr 0789 5 END; 
; 598 0790 4 END; ! While traversing ordered List of KFE's 
; 599 0791 4 
: 600 fad 4 } 
3 oR 448, Traversed whole List and didn't find it, something is broken. | 
3 $08 0795 4 IF .PRVKFE NEQ 0 
: 604 0796 4 THEN 
3 60> 0797 5 BEGIN 
> 606 0798 5 INSS$L_INTRNLERR = KFDKFE_ERR_DSC; | 
; 607 0799 5 RETURN INS$_INTRNLERR; 
; 608 0800 4 END; 
; 609 0801 4 | 
; 610 080 4 KFD CKFDSW_REFCNT] = .KFD CKFDSW_REFCNT) - 1; 
; 611 rth 4 
3 ol¢ 0804 4 ‘ ; 
; 61 0805 4 ! If this was the only KFE off it's KFD, then disconnect the 
: 614 3306 4 ' «FD. 
: 615 807 4 : 
; ol8 808 4 IF .KFD CKFD$W_REFCNT] EQL 0 
3; 6) st] 4 THEN 
; 618 10 BEGIN 
3; 619 811 LOCAL 
: 620 aig PRVKFD : REF BBLOCK, 
3; 621 81 CMPKFD : REF BBLOCK; 
3; 6 ; 814 
3; @ ai? RET_KFD = .KFD; 
> 624 0816 PRVRFD = KFPB CKFPBSL_KFDLST); 


2 
INSDELETE 18-5 Sep 1: AX-11 Bliss-32 v4.0 Page 18 
VOu-008 detach_kfe Remove from Known File List 14-Sep 7138 93: 38: 33 INSTAL. SRC INSDELETE. "5 231 Ln (8) | 
: 625 17 ; CMPKFD = .PRVKFD 
: : g 18 ; WHILE .CMPKFD ned 0 DO 
; 628 0 6 IF .KFD EQL .CMPKFD ! This is it, disconnect it 
: 629 0821 § THEN 
; 650 § BEGIN 
; 631 7 PRVKFD CKFDSL iw = .KFD CKFDSL_LINK); 
; 6 ; 3 4 7 KFD CKFDSL_LINK) = 0; 
3; 6 > - CMPKFD = Q; 
5 6 08 § 7 PRVKFD = 0; 
; ? 5 O8 7 END 
3; 6 $ § 7] 5 BEGIN 
; 638 0830 7 PRVKFD = .CHPKFD; 
; 639 0831 7 CMPKFD = .CMPKFD CKFDSL_LINK); 
: 640 08 ¢ 6 END; 
; 641 08 5 END; ! While traversing KFD List 
: 64 0834 : 
; «64 0835 IF .PRVKFD NEQ 0 
: 644 0836 5 THEN 
: 645 0837 6 BEGIN 
: 646 0838 6 INSSL_INTRNLERR = KFD_ERR_DSC; 
: 647 0839 g RETURN INS$_INTRNLERR> 
; 648 0840 END; 
; 649 0841 5 
; 650 pees 5 KFPB CKFPBSW gKEDLSTCNTI = -KFPB CKFPBSW_KFDLSTCNTJ = 1; 
; 651 08435 4 END; T Then remove KFD 
; 65 0844 4 END 
; 6) 0845 3 ! Same name, different file, keep traversing 
3: 654 0846 4 BEGIN 
; 655 084 4 PRVHSHKFE = .CMPHSHK 
; 656 0848 4 CMPHSHKFE = COPHSHRTE * CKFESL HSHLNKI; 
: 657 0849 3 END; 
; 658 0850 END; ! WHILE traversing hash bucket List 
; 659 0851 
: 660 bees ! 
; 661 085 ! Have traversed whole List. 
; 66 0854 ! 
; 66 0855 IF .PRVHSHKFE NEQ 0 
3: 664 0856 THEN 
: 665 0857 BEGIN 
; 666 0858 ae INTRNLERR = HSHKFE_ERR_DSC; 
$ y9t4 + $8 ETURR INSS_ INTRNLERR; T It wasn't on the List it was supposed to be on 
: 669 0861 ‘ 
: oy 94: : KFPB CKFPBSW_KFDLSTCNT) = .KFPB CKFPBSW_KFDLSTCNT) - 1; | 
; 67 0864 2 RETURN TRUE; | 
; 67 0865 1 END; ! routine DETACH_KFE | 
| 
O3FC 00000 DETACH re I 
Save R2,R3,R4,R5,R6,R7,R8,R9 : 0705 
59 00000000G 00 9E 00002 HOVAB INS$SL_INTRNLERR, R9 3 
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; Routine Size: 208 bytes, Routine Base: S$CODE$ + O1E8 


; 674 0866 1 


2 
Voerd00 detach_kfe Remove from Known File List it sit 93:38:39 INSTAL’SRE ingotcé 


9F b$251 


89 11 BRB 2$ 
58 D MOVL § CMPHSHKFE, PRVHSHKFE 
67 p ROVL (CMPHSHKFE), CMPHSHKFE 
£8 D3 ee S$: TSTL | PRVHSHKFE 

69 0000" er 3 Mitt Hie Ue ERR_DSC INSSL_ INTRNLERR 
50 000000006 &F 06 tte 16$: MOVL #INSS$_INTRALERR, 

0c a2 87 8 17$: DECW V2¢R2) 
50 01 pO 000CC MOVL #1, RO 

04 O00CF RET 
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INSDELETE sep-1984 01:52: AX=11 Bliss-32_V4.0-7 | 
ribet return_kfe Cleanup and deallocate entry 16-sep-1964 93:38:39 INSTAL. SRCJINSDELETE. 8 2;1 reha (3) 


: 676 pee? } ZSBTTL ‘return_kfe Cleanup and deallocate entry’; | 
: $7 0869 1 ROUTINE RETURNKFE (KFE,CCB) = | 
: 680 0871 2 !+44 | 
; 681 pa 76 

. oe + 144 FUNCTIONAL DESCRIPTION: 

: 684 0875 ! Deallocate a Known File entry which has been removed from the List. | 
; 685 0876 : If the file was installed /OPEN, take steps which will allow the 

: 656 +44 } file to be closed Later. 
: 688 0879 {EXPLICIT INPUT: | 
: 690 0881 2! none 

; «4691 bees ' 

; 24 th IMPLICIT INPUT: 

> 694 0885 2 KFE Address of known file entry block to be returned 

: $3? ted } ccB Address of channel control block | 
3 697 0888 5 {ROUTINE VALUE: 

; 699 Baae ; } RO = return status, low bit set for success, else error status 

: 701 089 3 lowe 
: 702 089 | 
: 703 0894 2 LOCAL 
: 704 0895 2 PTR, 

A BB 8 Bitar onan 

: 707 0898 2 

; 708 0899 2 MAP 

; 709 0900 2 CCB : REF S$BBLOCK, 

i 210 0901 ¢ —-KFE : REF BBLOCK; | 
: 712 0903 2 BIND | 
3 ay 3444 SUFFIX = UPLIT (ZASCII '_001°) : VECTOR C,BYTE); 
° 
; ay 0906 IF RFE CKFESV_HDRRES] | 
oe ea} 
: 719 0910 KFRH = .KFE CKFESL_IMGHDR] - KFRHSC_LENGTH; | 
3 731 O91¢ IF aKFE CKFESL_IMGHDR] EQL 0 
: 58 0914 4 BEGIN | 
s 726 0915 4 INSSL_INTRNLERR = IMGHDR_ERR_DSC; 
; g H pais 4 om INS$_INTRNLERR; 
‘ 
: 727 0918 
: 68 0920 — DEALLOC_PAGED (KFRH); | 
; 583 921 | 
3; 735i 09 ¢ ! 
s 3e 09 ! Delete any global sections created if this was installed /SHARE 


vas" 
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kfe Cleanup and deallocate entry 


' 
if .KFE CKFESV_SHAREDJ 
THEN 

BEGIN 


OCAL 
GBLSECNAM_DSC : BBLOCK CDSC$C_S PLN 
GBLSECNAM”: BBLOCK CINSS$C_GBLNAMLENI; 


Initialize 


CSA_POINTER] = GBLSECNAM: 
GBCNAMLEN, GBLSECNAM) ; 

$W LENGTHS = .KFE CKFESB_FIL 
CRFESB_FILNAMLEN], KFE CKFES 


atop] a 
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o 
r 4 
= 
= 
- 


L 
L 
$ 
L 
R . 
$ 


C 


= 

on 

a 
mower 
-~ 

= 

© 

” 

Cc 

es Ft 


At this point, we convert the match control to be 
ensures that we only delete global sections that 

have been created at the time this image was inst 
the problem where a newer copy of the 
likely, a greater minor ID from being deleted ins 
control in the KFE happened to be "MATLEQ’, as is 


For instance, if the shareable image is installed 
different KFDs, of course) and the age section 
second image has a larger minor ID than the first 
different sets of global sections will be created 
match control is set, as is typical, to b> ‘MATLE 
that not only will the second set of giobal secti 
for both my + during image activation, but shou 
be deleted, the second set of global section will 
This is incorrect in the case of the first snags 

the first set of global sections had been created 
and the second image may not be able to work with 
global sections. 


To make a long story short, by converting the mat 
we ensure deletion of the correct set of global s 


CKFESB_MATCHCTL] = ISDSK_MATEQU; 


! Delete all the global sections 


iNCR fiom 1 TO .KFE CKFESW_GBLSECCNT] DO 
ATUS = $DGBLSC ( 

FLAGS = SECSM_SYSGBL 

GSDNAM = GBLSECNAM_DSC 

IDENT = KFE CKFESB-MATCHCTL) i 


); 
[ASORLD, AO. SECEI (GBLSECNAM_DSC); 


I 
BE 
ST 


ress 


NAMLEN] + 
TLFILN 


lobal secti 


Deleting a system global section 
; ziceat section name 


! For as many global sections as were created 


AX-11 Bliss-32 Py led 
INSTAL.SRCJINSDELETE.832;1 


— 


4; 
AM], GBLSECNAM); 


“MATEQU'’. This 
are bthely to 
alled. This avoids 
on set with, most 
tead if the match 

typical. 


twice (with 
ident for the 
, then two 
., Now, if the | 
Q'', this means 
ons be referenced | 
ld either image 
also be deleted! 
being deleted because 
just for that image 
the first set of | 
| 
| 
} 


ch control to ‘MATEQU", 
ections. 


of match control and ident quadword 


Se es gee eat beck, 
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INSDELETE 18-52 -1984 AX-11 Bliss-32 V4.0-7 Pp 3 
riveted return_kfe Cleanup and deallocate entry 14- Sep-1984 93: 38: 39 UN STALSS Rea INSDELETE. 8 2;1 Ritts (33 


3 130 09 1 END; ! Delete global sections 
; 79 038 IF .KFE CKFESV_OPEN) 
; 79 984 THEN 
; 794 0985 IF .CCB EQL 0 
3; 795 b336 THEN 
3; 796 98 BEGIN 
s 97 0988 WCB = .KFE CKFESL_WCB); 
; 798 0989 WCB CWCBSW_REFCNTJ = .WCB CWCBSW_REFCNT] - 1; ! Allow file to be closed 
; 799 0990 END 
; 0991 2 ELSE 
; 801 099 ! ; 
; 45 343, Jam the WCB address into the CCB so that the file can be closed later. 
; 0995 CCB CCCBSL_WIND] = .KFE CKFESL_wCB); 
; 805 0996 2 
s 806 0997 2 
3 807 0998 é IF _.INSSGL_CTLMSK CINSS$SV_REPLACE] 
; 808 0999 2 THEN | 
; 809 1000 2 ! 
3 ay 1003 ! Preserve attributes so they can be duplicated on a REPLACE | 
; 812 1003 BEGIN | 
; 813 1004 ; INSSGL_REPLACE_MSK CINSS$SV_OPEN] = .KFE CKFESV_OPEN]; 
; 814 1005 INSS$GL_REPLACE_MSK INS$V~SHAR DJ = .KFE reresy. eNakED): 
; 815 1006 3 INSSGL_REPLACE_MSK CINSS$V_PRIV] = .KFE CKFES$V PROCPRI VI; 
; 816 1007 3 C (8, KFE $Q_ PROCPRIV], INS$GQ_KFEPRIV 
: BI? 1008 3 — INSSGL_REPLACE _MSK CINSSV_NOPURGE] = .KFE EKFESY NOPURGE:; 
; 818 1009 3 NSSGL_REPLACE_MSK CINSSV_ACCOUNT] = .KFE_ CKFESV_ACCOUNTI; 
; 819 1010 3 INS$GL_REPLACE_MSK CINSSV_HDRRES] = .KFE CKFESV ADRRESJ; 
; 820 1011 3 INS$GL-REPLACE-MSK CINS$V~PROTECT) = .KFE LKFES$Q PROTECT); 
: 821 1012 3 INSSGL_REPLACE_MSK CINSSV_WRITABLE) = .KFE CKFESY_WRITEABLE); 
3; Bee 1013 3 INSSGL~ REPLACE ~MSK INSS$SV_ EXEONLY] = .KFE CKFESV_EXEONLY); 
; 823 1014 2 END; | 
; 824 1015 2 
; 825 1016 2 STATUS = DEALLOC_PAGED (.KFE); 
; 826 1017 2 
: 827 1018 2 RETURN TRUE; | 
; 828 1019 1 END; ! routine RETURN_KFE | 
-PSECT SPLITS,NOWRT,NOEXE,2 
31 30 30 SF OQ00D8 P.AAK: .ASCII \_001\ 3 | 
SUFFIX= 


P.AAK 
-EXTRN SYSS$DGBLSC 
-PSECT SCODE$,NOWRT,2 | 
O3FC 00000 RETURN_KFE: 


WORD Save R2,R3,R4,R5,R6,R7,RB,RI : 0869 

59 000000006 90 9 9E 0000 MOV INSSGL REPLACE _MSK, RO ; 
£ 000 SUBL2 #52, SP : 
56 04 AC 5 000¢ MOVL  KFE. R6 > 0906 | 
$7 10 Ab 9E 00010 MOVAB 16(R6), R7 : 
} 

| 


3 
INSDELETE 1§- Sep-1984 01:52: AX-11 Bliss-32 V4.0-74 Page 24 
Mapes return _kfe Cleanup and deallocate entry 14- ~30 7182 93:38:39 LINSTAL  SRETINGDLCE TE 6825 1 . & 
5 67 4 €1 00014 BBC #4, (R7), 2% : 
3 1¢ AG o¢ ¢ 0018 SUBL3 #12, 28(R6), RO > 0910 | 
1¢ AB OD 1D TSTL #8 (R6) : 0912 | 
11 12 00020 BNE 5 : 
000000006 00 0000" CF 3 0022 MOVAB IMGHDR_ERR_DSC INSSL_ INTRNLERR + 0915) 
000000006 §F v6 90 ; OVL #INS$_TNTRALERR, : 0916 | 
50 DD 003 1$: PUSHL RO ; 0919 
0000v CF 01 FB 00035 CALLS #1, DEALLOC_PAGED ; 
58 50 0 003A MOVL RO. STATUS : 
53 67 05 £1 00030 2s: BBC #5. (R7), 5$ + 0925 
2c OA b4 0041 CLRL GBL SECNAM_DS¢ + 0935 
30 AE 6E 9E 00044 MOVAB GBLSECNAM, GBLSECNAM_DSC+4 + 0936 
2B 00 6E 00 2¢ 00048 MOVCS #0, (SP), #0, #43, GBLSECNAM + 0937 
2c OAL 36 AG OB agoue WOV7BM 54(R6), GBLSECNAM_DSC + 0938 
2C SOA 04 Ad 0005 ADDW 4, GBLSECNAM_DSC : 
50 36 AB 9A 00057 MOVZBL 54(R6), RO + 0939 
6E 37, Ab 50 28 00058 MOVC3 RO, 55(R6), GBLSECNAM : 
63 0000" CF DO 00060 MOVL SUFFIX, (PTR) + 0940 
28 Ab 01 90 00065 MOVE #1, 40(R6) t 0966 
53 12 As 3¢ 00069 MOV ZL 18(R6), R3 : 0971 
1F 11 O006F BRB 4$ F 
28 Ab OF 00071 3$: PUSHAB 40(R6) + 0977 
30 AE 9F 00074 PUSHAB GBLSECNAM DS psc ; 
7E 8000 8F 3c 00077 MOVZWL : 
pest BF b8 0008s Sours RO” "Sr8speaisc 
2c «=AE «OF 00086 PUSHAB GBLSECNAM DSC : 0978 
000000006 00 01 FB 00089 CALLS #1, INS$BCD_GBLSECNAM : 
DD 52 53 F3 00090 4$: AOBLEQ R3. I, 3$ : 0971 
14 67 03 £1 00094 5$: BBC #3. (R7), 7$ : 0983 
a a jee 
50 18 A6 DO 0009E MOVL  24(R6), WCB : 0988 
OE AO B87 O00A2 DECW  14(WCB) : 0989 
05 11 O00A5 BRB 7$ : 0985 
04 «Al 18 Ab DO 00047 6$: MOVL  24(R6), 4(R1) : 0995 
63 000000006 00 05 €1 OOOAC 7$: BBC #5, INSSGL_CTLMSK, 8$ : 0998 
50 67 01 03 EF 000B4 EXTZV #3. #1, (R7), RO + 1004 
01 Ad 01 05 50 FO 00089 INSV it #5, #1, INSSGL_REPLACE_MSK+1 ; 
50 67 01 05 EF O00BF EXTZV #5. #1. (R?) RO + 1005 
02 A9 01 1 50 FO 000C4 INSV ; #1. #1, INS$SGL_REPLACE_MSK+2 ; 
50 67 1 EF OOOCA EXTZV ; i. ( (RP), i, : 1006 
01 «Ad 01 07 FO OOOCF INSV a7. #1 L_REPLACE_MSK+1 : | 
000000006 00 20 Ab 08 28 00005 MOVC3 ii insscu KFEPRI : 1007 
9 01 03 01 A? FO 000D INSV re asset. ~REPLACE_MSK+2 : 1008 
67 01 9 EF OOOE EXTZV MS ; niet "R : 1009 
01 4 0 FO OOOEA INSV RO. #4, # 7) reso _REPLACE_MSK+2 : | 
67 1 04 EF OOFO EXTZV #4. #1. + 1010 
01 06 0 FO 000F INSV RO. #6 INS$GL_REPLACE_MSK+1 : | 
01 0 67 FO 000FB INS. CRP BO. #1, INSEL REPLACE _MSK*2 > 1011 | 
7 1 OA EF 00101 EXTZV #10, #1, ; 1012 | 
1 02 0 FO 01 INSV RO, #2, #1,_INS$GL_REPLACE_MSK+2 ; 
67 01 08 EF 0010C Extz7v wif, wi, (R7), R ; 1013 | 
01 05 FO 00111 INSV RO, #5, #1, INSSGL_REPLACE_MSK+2 ; | 


return_kfe Cleanup and deallocate entry 19-s¢ $07 1882 9}: 38: 33 HINSTALeSRE ingoke Are: B52;1 we a 
6 


rsebss" 


DD 00117 8$: PUSHL 101 
0000v CF ; F O19 CALLS i, DEALLOC_PAGED : 
3 0 D 11€ MOVL RO, STATUS ~ 3 
1D B15, MOVL #1, RO ; 1018 
04 00124 RET : 1019 


; Routine Size: 293 bytes, Routine Base: $CODE$S + 02B8 
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GLOBAL ROUTINE INSS$FI 
BEGIN 


Locate KFE given name and hash bucket’; 


ND_KFE (HSHIDX, NAM) = 


FUNCTIONAL DESCRIPTION: 
This routine locates a KFE (if one exists) for the specified 


file 
EXPLICIT 

none 
ROUTINE V 


spec. 
INPUT: 


ALUE : 


RO = 0 if no such known file exists 
else, KFE address 


OCAL 
CMPKFE 


NAM : RE 


F 


: REF BBLO 


F BBLOCK; 


: REF VECTOR “C, LONG), 
: REF BBLOCK 


D 
KFPB = EXESGL_KNOWN_FILES : REF BBLOCK; 
-KFPB EQL 0 THEN RETURN 0; 


ate & -KFPB CKFPBSL_KFEHSHTAB); 


HSHTAB C.HSHIDX] EGL 0 
VKEE = HSHTAB C. HSHIDX); 


KFE = .HS 
HILE .CMPKF 


BEGIN 
CASE CHSCOMPARE , (.NAM CNAM$B_NAME) 
PKFE CKFESB_ FILNAMLEN] CMPKFE 


FROM -1 
SET 


{-1): 
BEG! 


C0) 


HTAB C.H 
E NEQ 0 30 


TO 1 “OF 


co 0; 


LOCAL 


DDTSTR : 


0 THEN RETURN 0; 


SHIDX); i Comparis 


' Previous KFE 


AX-11 Bliss-32 V4.0 
INSTAL.SRC INSDELETE. 3 231 


KFE 
! Single ifnked List ending in zero 


NAM_CNAMS 


tr 


NAME} 
FEST _FILNAM], %C° ') 


' Either less than, equal to, or greater than 


BBLOCK CNAMSC_MAXRSS), 


i Less than, therefore its not in the List, ERROR 


th Same file name, check if KFD is the same 


oo 


nh 


DDT_DSC CDSCSA_POINTER] 
DDT_DSC CDSCSA_POINTER] 
DDT_DSC CDSCSA_POINTER] 


DDT_DSC CDSCSA_POINTER) 
INSSCVT_DIR (DDT_DSC); 


IF CHSCOMPARE (.DDT_DSC COSC$W_LENGTH 
aro CKFDSB_DDTSTRLENJ, KFB CKFDS 


DWOOOO000O0O0 OW COO COCD COCO CDCDOCO “I~ 


jeleleleleleleleleleleleleleleleleleleolololo) 
DNAVE WN O OONAU EWN 0 ODO UNE WN 0 OD NAU EWN COONOULS WR —OWOO 


seeseer 


Cooooooo 


N 
RETURN .CMPKFE; 


WA. AAA ARI POPIPUNINININYDS 2 SS SS 
a ll a le ee ee ee ed ed ad 


Bee Se ee Oe Be Oe Se Se Be Be Se Ge See Ge Se Se Ge FH SH Ss Be Os Oe Se FH Oe SH Se SH Ss Oe Be Oe Se Se OH Se SFOs Oe HSH Se SH Se SH Oe Be ee 
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— ee a ts 4 4s = os 2d ss 2 a 
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INSSFIND_KFE Locate KFE given name and hash buc 14- 


COSC$C_S_BLNJ, 
D : REF BBLOCK; 


KFD = .CMPKFE CKFESL_KFDJ; 


Build an ASCII string of the concatenated Device, Directory 
Type strings. 


DDT_DSC CDSCS$W_LENGTH] = .NAM CNAMSB_DEV] + .NAM CNAM$B_DIR] + 


«NAM CNAM$B_TYPE); T Length of DDT string 


DDT_DSC COSCSA_POINTER) 


AX-11 Bliss-32 V4.0- 
INSTAL .SRC JINSDELETE 


pa19Be 12:38:37 


= DDTSTR; 


Same file name, different file, keep traversing 
= .CMPKFE; 
= .CMPKFE CKFESL_HSHLNK); 
! Greater than, keep looking 
KFE; 
KFE CKFESL_HSHLNK); 
! WHILE traversing hash bucket List 


Have traversed whole List and didn't find it. 


! routine INSSFIND_KFE 


O3FC 00000 


! DDT string address 


AM CNAMSB_DEV] 
CDSC$A_POINTER)) 


.NAM CNAMSL_DEV], 
AMS$B_DIRJ, .NAM CNAMSL_DIRI, 
"NAM CNAMSL_TYPE], 


SC$A_POINTER]5 
! DDT string address 
!' Convert and compress brackets 


! They were the same 


INSSFIND_KFE, Save R2,R3,R4,R5,R6,R7,R8,R9 


peep SS ee Ree ek EI en oar popes, | 
ts 


INSDELETE 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 28 
Voor 500 iNSSFIND_KFE Locate KFE given name and hash buc 1 300-1984 93: 38: 33 INSTAL .SRC INSDELE SE B92:1 . 6) 
FEF 9 MOVAB -264(SP), SP ; 
2f 000005006 o6 p sy MOVE KFPB, RO ; 1055 
51 04 A D 15 MOVL (RO), HSHTAB + 1057) 
0 4 aC D 14 MOVL §HSHIDK, R : 1058 | 
6140 D 18 TSTL § (HSHTAB) CROJ : 
OE 1 1B BEQL $ : 
59 6140 D 1D MOVAL (HSHTAB)(ROJ, PRVKFE + 1060. 
27 6140 DO 00021 MOYL § (HSHTAB)CROJ. CMPKFE + 1061 
6 08 AC D 00 5 MOVL NAM, + 1064 
D 9 1$ TSTL CHPKFE + 1062 
3 0 B 2$ BNEO $ : 
008D D BRW és : 
51 B ag A 00030 3$ MOVZBL 59(R6), R1 + 1064 
50 6 AZ 9A 000 MOV ZBL 54(CMPKFE), RO : 1065 | 
50 20 4C = B6 51 20 999 8 CMPCS R1, a76(R6), #32, RO, SS(CMPKFE) : 
me ee 0940 BGTRU  5$ ; 
79 «‘1F $004 BLSSU 6$ : | 
58 OC A7 DO 00044 MOVL (nas ha KFD : 1081, 
50 39 a6 9A 00048 MOVZBL 57(R6) : > 1086 
51 3a ABCA 00040 MOVZBL 58(R6), ; 
50 51 CO 90050 ADDL2 1, R ; 
52 3c = A6s«SA. 0005 MOV ZBL 60(R6), R2 + 1087 
6E 50 52 Al 00057 ADDW3 -R2 RO, DDT_DSC : 
04 AE 08 AE 9E 00058 MOV potstR. DoT “DSC+4 + 1089 
50 39 a6 9A 00060 MOVZBL 57(R6) + 1091 
04 BE 44 B6 50 28 00064 MOVC Rd. B68cR6) ,ad0T_psc+4 ; 1092 | 
04 AE 53 DO OO06A MOVL R3. DDT ; 
50 3A AS OA O06 MOVZBL 58(R6) Ro + 1093 
04 BE 48 86 50 28 0007 MOVC Rd, a70(R6), @DDT_DSC+4 : 1094 
04 AE 53 DO 00078 MOVL 3. DDT Dstt F 
50 3c |= ASSO «TE MOVZBL 60(R6) : 1095 
04 BE 50 Bb 50 28 00080 MOVC RO. @ o3OcRO) . @DDT_DSC+4 > 1096 
04 AE 53 DO 00086 MOVL. 3. DDT_DSC+4 : 
04 AE 08 AE 9E O008A MOV DDTSTR, DDT_DSC+4 : 1098 
SE DD 0008 PUSHL gp : 1100 | 
000000006 00 01 FB 00091 CALLS #1, INSSCVT_DIR ; 
20 10 As 9A 00098 mov ZBL JoiKed), RO ; 1103 
50 20 08 AE ‘ é SD 0009F CMPCS DDT_DSC, DDTSTR, #32, RO, 17(KFD) | 
~ EHRs wr tn = 
54 3 Boone as: TSE Re : 1106 
50 9% 06 29080 MOVL CMPKFE, RO ; 1106 
59 57 00 oes S$:  MOVL —CMPKFE, PRVKFE 4117 | 
57 67 p0 B7 MOVL § (CMPKFE), CMPKFE > 1118 | 
FF6C 31 OOOBA BRW i$ : 1062 
6 D4 000BD 68: CLRL =—s_ RO > 1128) 
4 000BF RET : | 


; Routine Size: 192 bytes. Routine Base: $CODE$ + 0300 


Voe eb '* INSSFIND_KFE Locate KFE given name and hash buc 18-00-1984 93:38:39 PINS TAL saedingotcete 6 231 Page 189. 
; 939 1129 1 | 


INSEL ETE 1b-sép-19 4 01: +38: 39 AX-11 Bliss-32 V4.0-7 
dealloc_paged Return memory to paged pool 14-Sep-1984 12: INSTAL. SRCJINSDELETE. 8 2;1 


: 3) 1) 9 1 ZSBTTL ‘dealloc_paged Return memory to paged pool’; 

; 94 11 § 1 ROUTINE DEALLOC_PAGED (ADR) = 

: 944 11 BEGIN 

; 945 1134 leee 

: ae8 1135 ‘ 

; ote i § } FUNCTIONAL DESCRIPTION: 

: 949 1138 : Deallocate the paged pool which is specified by ADR. 
; 950 4139 : Size of block to return is specified in size offset 
; 951 1140 ! start of block. 

3 826 114] ‘ 

; 95 1106 leon 

; 9546 114 

; 955 11446 LOCAL 

3 B28 1145 STATUS; 

3 1108 

3 328 1132 STATUS = EXESDEAPAGED (.ADR); ! Deallocate to paged pool 
: 960 1149 RETURN .STATUS; 

; 961 1150 1 END; ! Routine DEALLOC_PAGED 


OFFC 00000 DEALLOC_PAGED: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


50 04 AC DO 00002 MOVL 
000000006 00 16 00006 JSB EXESDEAPAGED 
04 0000C RET 


; Routine Size: 13 bytes, Routine Base: S$CODE$S + 0490 


962 1151 1 


Page 30. 


we) 


ee ) 


5 
Voer00 dealloc_paged Return memory to paged pool 1b: 3ep-) -1 1984 93: 38: o INSTAL SRE Tngoee SDEL oF B82: 37 Page 43) 


: 964 END ' Module insdelete 
; 965 1188 4 0 ELUDOM . 


PSECT SUMMARY 


; Name Bytes Attributes 

: SPLITS 220 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, booked | Trg bath fs 

; SCODES 1194 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

EOP be ee el Cee Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

; .$255$DUA28: CSYSLIEIJLIB.L32;1 18619 61 0 1000 00:01.8 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INSDELETE/OB!=OBJ$: INSDELETE MSRC$: INSDELETE/UPDATE=(ENHS$: INSDELETE) 


siz ze: 1194 code + 220 data bytes 
00:25.3 


un Time 725. 
elles y Time: O}; 1.1 
Lines/CPU Min: $7 8 
genomes /PU-Wtes 17337 

ry Used: 167 pages 
aod ation Complete 
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